home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 9
/
64er_Magazin_Sonderheft_09_86-09_1986_Markt__Technik_de_Side_A.d64
/
ex.dir & bam
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
148 lines
0 rem *********************************
1 rem *** ***
2 rem *** ext. dir & bam ***
3 rem *** ***
4 rem *** (c) 1986 ***
5 rem *** by w. friedrich ***
6 rem *** c-64 + 1541 ***
7 rem *** ***
8 rem *********************************
10 dim s$(255):i=0:m=0:nu$=chr$(0):c$=chr$(13)
20 print chr$(147)chr$(159)chr$(14):poke53281,0:poke53280,0
30 ft$(0)="[196][197][204]":ft$(1)="[211][197][209]":ft$(2)="[208][210][199]":ft$(3)="[213][211][210]":ft$(4)="[210][197][204]"
40 ll$=" "
100 print" [197]rweiterts [196]irectory & [194][193][205]"
110 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
120 print" [196][146]rucker oder [194][146]ildschirm?"
130 get a$:if a$=""then130
140 if a$="d"then ga=4:goto165
150 if a$<>"b"then130
160 ga=3
165 open1,ga,7
170 print"[145]"ll$
180 print" 1 [146] [197]rweitertes [196]irectory":print
190 print" 2 [146] [194][193][205]"
200 get a$:if a$="1"or a$="2"then210
201 goto200
210 on val(a$)gosub3002,2009
215 get a$:if a$=""then215
220 print chr$(147)chr$(158)
230 print"[206]ochmal(j/n)
240 [161] a$:[139] a$[178]""[167]240
250 [139] a$[179][177]"j"[167] [153] [199](159):[128]
260 [138]
500 [143] unterprogramme
501 [143] **************
505 [143] diskname und id auslesen
506 [143] ************************
510 mn[178]0
520 mn[178]mn[170]1:[139] [198](s$(143[170]mn))[179][177]160[167] dn$[178]dn$[170]s$(143[170]mn):[137]520
530 [129]i[178]0[164]4:id$[178]id$[170]s$(162[170]i):[130]
540 [142]
600 [143] formatieren
601 [143] ***********
610 f$[178][196]([181](f))
612 [139] f[178]0[167] 620
615 [139] f[179]1[167] [152]1," ";
620 [129] ii[178]1[164]5[170]sp[171][195](f$):[152]1," ";:[130]
630 [142]
700 [143] startaddr prog
701 [143] **************
710 [159]15,8,15,"i0":[141]910
720 [159]2,8,2,"#":[141]910
730 [152]15,"u1:2,";0;ft;fs
740 [152]15,"b-p:2,0"
760 [161]#2,a$,a$,l$:[139] l$[178]""[167] l$[178]nu$
770 [161]#2,h$:[139] h$[178]""[167] h$[178]nu$
780 sd[178]256[172][198](h$)[170][198](l$):[160]2:[160]15
790 [142]
900 [143] fehlerkanal
901 [143] ***********
910 [132]15,y1,y$,y2,y3:[139] y1[178]0[167] [142]
920 [153] y1;[199](18)y$ [199](146),y2,y3:[160]1:[160]2:[160]15:[142]
1000 [143] einen sektor lesen
1001 [143] ******************
1010 [159]15,8,15,"i0":[141]910
1020 [159]2,8,2,"#":[141]910
1030 [152]15,"u1:2,""0";t;s
1040 [152]15,"b-p:2,0"
1050 [152]15,"m-r"[199](0)[199](5)
1060 [161]#2,s$(0):[139] s$(0)[178]""[167] s$(0)[178]nu$
1070 nt[178][198](s$(0))
1080 [161]#2,s$(1):[139] s$(1)[178]""[167] s$(1)[178]nu$
1090 ns[178][198](s$(1))
1110 [129] i[178]2[164]255:[161]#2,s$(i):[139] s$(i)[178]""[167] s$(i)[178]nu$
1120 [130]
1130 [160]2:[160]15
1999 [142]
2000 [143] bam anzeigen
2001 [143] ************
2009 [153] [199](147)
2010 t[178]18:s[178]0:[141]1010
2012 [141]510
2016 [152]1," "[199](18)[199](34)dn$[199](34)" "id$[199](146)
2018 [152]1," peek"c$" l"c$" o"c$" c"c$" k 012345678901234567890 (NULL)ektor"c$
2020 [129] i[178]1[164]35
2030 bf[178][198](s$(i[172]4))
2040 [129] j[178]1[164]3
2050 q$[178][196]([198](s$(i[172]4[170]j)))
2060 [141]2505
2070 b$[178]b$[170]bi$
2080 [130]
2085 [139] tz[179]9[167] [152]1," ";
2090 tz[178]tz[170]1:[152]1,tz;
2100 [139] tz[179]18[167] [152]1,[200](b$,21)" ";:[137]2135
2110 [139] tz[179]25[167] [152]1,[200](b$,19)" ";:[137]2135
2120 [139] tz[179]31[167] [152]1,[200](b$,18)" ";:[137]2135
2130 [152]1,[200](b$,17)" ";
2135 [139] bf[179]10[167] [152]1," ";
2140 [152]1,bf" peeklocks free"
2150 [139] tz[179][177]18[167] gf[178]gf[170]bf
2160 b$[178]"":[130]
2170 [152]1,c$" "gf" peeklocks free"
2180 [142]
2500 [143] dez->dual
2501 [143] *********
2505 [139] q$[178]" 255"[167] bi$[178]"........":[142]
2507 [139] q$[178]" 0"[167] bi$[178]"********":[142]
2510 d[178][197](q$):bi$[178]"":z[178]0
2520 z[178]z[170]1:d[178]d[173]2:[139] d[179][177][181](d)[167] bi$[178]bi$[170]".":[137]2540
2530 bi$[178]bi$[170]"*"
2540 [139] d[179][177].5[167] d[178][181](d):[137]2520
2580 d[178][195](bi$):[139] d[178]8[167] [142]
2590 [129] k[178]8[171]d [164]1[169][171]1
2600 bi$[178]bi$[170]"*"
2610 [130]
2620 [142]
3000 [143] ext. dir
3001 [143] ********
3002 [153]"str$val(NULL)-asciles mit anzeigen?";
3003 [161] a$:[139] a$[178]""[167]3003
3004 [139] a$[178]"j"[167] dm[178]1:[137]3007
3005 [153]:dm[178]0
3007 [153] [199](147)
3010 t[178]18:s[178]0:[141]1010
3020 [141]510
3030 [152]1,[199](18)[199](34)dn$[199](34)" "id$;[199](146)
3040 [139] nt[179][177]18[176] ns[177]21[176] ns[178]0 [167] [152]1,664[171]gl" blocks free":[142]
3050 t[178]nt:s[178]ns:[141]1010
3060 [129] i[178]0[164]7
3070 m[178]i[172]32[170]2:mn[178]0:nf$[178]""
3080 ft[178][198](s$(m[170]1)):fs[178][198](s$(m[170]2)):tf[178][198](s$(m))[175]15:sd[178]0
3085 [139] dm[178]0[175] ft[178]0[167]3200
3090 mn[178]mn[170]1:te[178][198](s$(m[170]2[170]mn)):[139] te[179][177]160[175] te[177]10[167] nf$[178]nf$[170]s$(m[170]2[170]mn):[137]3090
3095 [139] nf$[178]""[167] 3200
3100 l[178][198](s$(m[170]29))[172]256[170][198](s$(m[170]28)):lg[178]lg[170]l
3120 [139] tf[179][177]0[167] [141]710
3130 f[178]l:sp[178]0:[141]610
3150 [152]1,l" "[199](34)nf$;[199](34);[200](ll$,18[171][195](nf$));
3160 [152]1,ft$(tf);" ";
3165 [139] ft[179]10[167] [152]1," ";
3170 [152]1," ";ft;
3175 [139] fs[179]10[167] [152]1," ";
3180 [152]1," ";fs;" "[200](ll$,6[171][195]([196](sd)));sd;
3185 f[178]l[173]4:sp[178]2:[141]610:[152]1,l[173]4
3190 [139] tf[179][177]0[167] gl[178]gl[170]l
3200 [130]
3210 [137]3040